From 198aadef773f7beffac5568e4ce87c8a0d7cd1b2 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Mon, 30 Dec 2019 15:46:22 +0000 Subject: [PATCH] Version_2_6_13pre34 Gbp-Pq: Name Version_2_6_13pre34 --- unixport/sys_init.lsp.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/unixport/sys_init.lsp.in b/unixport/sys_init.lsp.in index 218eabde..0bd8cf91 100644 --- a/unixport/sys_init.lsp.in +++ b/unixport/sys_init.lsp.in @@ -81,5 +81,5 @@ #+ansi-cl (import 'si::(clines defentry defcfun object void int double quit bye gbc system) :user) (let* ((i 4096)(j (si::equal-tail-recursion-check i))) - (unless (eql i j) + (unless (<= (ash i -1) j) (warn "equal is not tail recursive ~s ~s" i j))) -- 2.30.2